#propager
propa10 <- read.csv("~/cours/TPE/pratique/data/10ofPanicPropa.csv")
propadimi10 <- read.csv("~/cours/TPE/pratique/data/10ofPanicPropadimi.csv")
propafire <- read.csv("~/cours/TPE/pratique/data/10ofPanicPropadimifire.csv")
propasansgroup <- read.csv("~/cours/TPE/pratique/data/10ofPanicPropasansgroup.csv")

boxplot(pa10$Collisions, propa10$Collisions, propasansgroup$Collisions, propadimi10$Collisions, propafire$Collisions, names=c("(1)", "(2)", "(3)", "(4)","(5)"), title="hhh", main="10 % des agents paniques", xlab="Niveau de peur", ylab="Nombre de collisions")
boxplot(pa10$Mean, propa10$Mean, propasansgroup$Mean, propadimi10$Mean, propafire$Mean, names=c("(1)", "(2)", "(3)", "(4)","(5)"), title="hhh", main="10 % des agents paniques", xlab="Niveau de peur", ylab="Temps moyen pour un agent quitte le magasin")